﻿Public Class ArticuloProveedorCodBarra

    Dim _CIA, _ARTCOD, _PROVCOD, _BARCOD, _UNMCOD As String
    Dim _CANT As Integer

    Sub New()

    End Sub

    Sub New(ByVal cia As String, ByVal articulo As String, ByVal proveedor As String, ByVal codbarra As String, ByVal unidad As String, ByVal cantidad As Integer)
        Me._CIA = cia
        Me._ARTCOD = articulo
        Me._PROVCOD = proveedor
        Me._BARCOD = codbarra
        Me._UNMCOD = unidad
        Me._CANT = cantidad
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(ByVal value As String)
            _CIA = value
        End Set
    End Property

    Public Property ART_Codigo() As String
        Get
            Return _ARTCOD
        End Get
        Set(ByVal value As String)
            _ARTCOD = value
        End Set
    End Property

    Public Property PROV_Codigo() As String
        Get
            Return _PROVCOD
        End Get
        Set(ByVal value As String)
            _PROVCOD = value
        End Set
    End Property

    Public Property BAR_Codigo() As String
        Get
            Return _BARCOD
        End Get
        Set(ByVal value As String)
            _BARCOD = value
        End Set
    End Property

    Public Property UND_Medida() As String
        Get
            Return _UNMCOD
        End Get
        Set(ByVal value As String)
            _UNMCOD = value
        End Set
    End Property

    Public Property CANTIDAD() As Integer
        Get
            Return _CANT
        End Get
        Set(ByVal value As Integer)
            _CANT = value
        End Set
    End Property

End Class
